source: IHS-VA_UTILITIES-XB/trunk/XBLCALL.m@ 1075

XBLCALL ; IHS/ADC/GTH - LIST CALLABLE SUBROUTINES ; [ 02/07/97   3:02 PM ]
        ;;4.0;XB;;Jul 20, 2009;Build 2
        ;
        ; This routine lists callable subroutines that are known to
        ; this routine.  To add subroutines to this routine just add
        ; them to the end of this routine in same manner.
        ;
START   ;
        NEW I,X,Y
        F I=1:1 S X=$T(@("L")+I) Q:X=""  W !,$P(X,";",3),$E("...............",1,15-$L($P(X,";",3))),$P(X,";",4,99) I '(I#20) Q:'($$QUIT)
        Q
        ;
QUIT()  ;
        NEW I,X,Y
        Q $$DIR^XBDIR("E")
        ;
STARDATE(X)     ; Return Stardate of FM date/time.
        I X'?7N.1".".6N Q -1
        NEW Y
        S Y=$P(X,".",2),Y=+$E(Y,1,2)/24+(+$E(Y,3,4)/(60*24))+(+$E(Y,5,6)/(60*60*24))
        Q $FN($E(X,3,7)+Y,"-",2)
        ;
L       ;
        ;;^XBCLS;Clears the screen
        ;;EP^XBCLM(STR);Lists numbered column headings over the passed string
        ;;^XBDAD0;Returns DA array for D0,D1, etc. or vice versa
        ;;KILL^XBDAD0;KILL D0, D1, ETC.
        ;;^XBDATE;Limits selected routines to those edited after given date
        ;;^XBDBQUE;Double Q'uing shell handler
        ;;^XBDIE;Exclusive NEW of Kernel vars for nesting DIE calls
        ;;^XBDIFF;Returns difference between two date/times
        ;;$$DIC^XBDIQ1(FN);Extrensic entry to return DIC from global
        ;;EN^XBDIQ1;Returns single entries
        ;;ENM^XBDIQ1;Returns multiple entries
        ;;ENP^XBDIQ1(DIC,DA,DR,DIQ,FMT);Param pass into EN
        ;;ENPM^XBDIQ1(DIC,DA,DR,DIQ,FMT);Param pass into EN
        ;;PARSE^XBDIQ1(DA);Parse DA literal into da array
        ;;$$VAL^XBDIQ1(DIC,DA,DR);Return a value for a field
        ;;$$VALI^XBDIQ1(DIC,DA,DR);Return internal value for a field
        ;;$$DIR^XBDIR();Standard interface to Reader
        ;;EN1^XBDSET;Return FileMan dictionaries
        ;;EN^XBENHANCE(NS);Print enhancements from PACKAGE given namespace
        ;;FLD^XBFDINFO(FILE,FIELD,ROOT);Return field info from dd
        ;;^XBFMK;Kills variables left around by FileMan
        ;;EN1^XBFRESET;Reset global(s), confirm with user
        ;;EN2^XBFRESET;Reset global(s), do not confirm with user
        ;;^XBGXFR;Copies global to another global
        ;;^XBGXREFS;Returns xrefs for file/subfile,field
        ;;$$C^XBFUNC(X,Y);Center X in field length Y/IOM/80.
        ;;$$CV^XBFUNC(N);Return current version for package with namespace N
        ;;$$DECFRAC^XBFUNC(DECIMAL VALUE);returns fraction equivilent
        ;;$$FNDPATRN^XBFUNC(STR,PAT);finds pattern in string
        ;;$$GDT^XBFUNC(JDT);Return Gregorian Date, given Julian Date.
        ;;$$GETPATRN^XBFUNC(STR,PAT);returns pattern from string
        ;;$$INTSET^XBFUNC(FILE,FIELD,EXTVAL);returns internal value
        ;;$$JDT^XBFUNC(FMDT);Return Julian Date, given FM date.
        ;;$$EXTSET^XBFUNC(FILE,FIELD,INTVAL);returns external value
        ;;$$LOC^XBFUNC;Return location name from file 4 based on DUZ(2).
        ;;$$USR^XBFUNC;Return name of current user for ^VA(200.
        ;;$$PROVCLS^XBFUNC1(PROV,FORM);Return Provider Class from New Person
        ;;$$PROVCLSC^XBFUNC1(PROV);Return Provider Class Code given New Person IEN
        ;;$$PCCPPINT^XBFUNC2(VISIT);Return primary provider ien from 200
        ;;$$PCCPPN^XBFUNC2(VISIT);Return visit primary provider (NAME)
        ;;$$PCCPPI^XBFUNC2(VISIT);Return visit primary provider (INITIALS)
        ;;$$PCCPPCLS^XBFUNC2(VISIT,FORM);Return visit primary provider class (CODE)
        ;;$$PCCPPCLC^XBFUNC2(VISIT);Return visit primary provider class (CODE)
        ;;$$PCCPPAFF^XBFUNC2(VISIT,FORM);Return visit primary provider (affiliation)
        ;;^XBGSAVE;Generic global save for transmission globals
        ;;HELP^XBHELP(L,R,T);Display text beginning at label L of routine R
        ;;EN1^XBKD;Kill DICs and globals, info in vars
        ;;EN2^XBKD;Kill DICs and globals, info in ^UTILITY("XBDSET",$J) 
        ;;^XBKERCLN;Clean out kernel namespace items prior to install
        ;;^XBKTMP;KILL nodes in ^TMP( that have $J as 1st or 2nd subscripts
        ;;^XBKVAR;Set minimum Kernel vars
        ;;ARRAY^XBLM(AR,HDR);Display array that has (...,n,0) structure
        ;;DIQ^XBLM(DIC,DA);Display DIC and DA after call to EN^DIQ
        ;;FILE^XBLM(DIR,FN);Read file into the TMP global for display
        ;;GUID^XBLM(ROU,Y);Give routine and target array for FM prints
        ;;GUIR^XBLM(ROU,Y);Give routine and target array
        ;;SFILE^XBLM;Select a host file for display
        ;;VIEWD^XBLM(ROU);Use ROU to print to a host file for viewing
        ;;VIEWR^XBLM(ROU,HDR);Use ROU to print to a host file for viewing
        ;;EN^XBLZRO;List 0th nodes of pre-selected list of FileMan files
        ;;MAIL^XBMAIL(NS,REF);Send mail msg to holders of NS* security key
        ;;EN^XBNEW(XBRET,XBNS);Nest Die calls, "TAG^ROUTINE:VAR;NSVAR*"
        ;;^XBOFF;Set reverse video off
        ;;^XBON;Set reverse video on
        ;;PFTV^XBPFTV(FILE,ENTRY,VALUE);Returns terminal value for pointer
        ;;^XBPKDEL;Delete parts of package, namespace in XBPKNSP
        ;;EN1^XBRESID;Clean up residuals in ^DD from XBRLO to XBRHI
        ;;EN^XBRPTL;Print routines down to first label
        ;;EN^XBSFGBL(SUBFILE,ref,FORM);Return global ref of file or sub-file.
        ;;^XBSITE;Ask user to select site to set DUZ(2)
        ;;SET^XBSITE;Request set of DUZ(2) from applications
        ;;^XBUPCASE;Upcases value in X
        ;;EN^XBVIDEO(X);Set video attribute in X, return cursor
        ;;EN^XBVK(NS);KILLS local variables in the passed namespace
        ;;^XBVL;List variables in the selected namespace
        ;;$$KILLOK^ZIBGCHAR(G);Allow kill of global G
        ;;$$KILLNO^ZIBGCHAR(G);Prevent kill'ing of global G
        ;;$$JOURN^ZIBGCHAR(G);Set Journaling to ALWAYS for global G
        ;;$$NOJOURN^ZIBGCHAR(G);Set Journaling for global G to NEVER
        ;;$$UCIJOURN^ZIBGCHAR(G);Journal global G when UCI is Journaled
        ;;$$ERR^ZIBGCHAR(#);Return cause of error #
        ;;$$Z^ZIBNSSV(ERR);Return values of Non-Standard ($Z) Special Variables
        ;;^ZIBRUN;Sets $T based on whether routine in X is running
        ;;$$RSEL^ZIBRSEL(NS,Y);Select a list or range of routines