XBLCALL.m

XBLCALL ; IHS/ADC/GTH - LIST CALLABLE SUBROUTINES ; [ 02/07/97   3:02 PM ]

 ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997

 ;

 ; 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

XBLCALL   ; IHS/ADC/GTH - LIST CALLABLE SUBROUTINES ; [ 02/07/97   3:02 PM ]

 +1       ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997

 +2       ;

 +3       ; This routine lists callable subroutines that are known to

 +4       ; this routine.  To add subroutines to this routine just add

 +5       ; them to the end of this routine in same manner.

 +6       ;

START     ;

 +1        NEW I,X,Y

 +2        FOR I=1:1

               SET X=$TEXT(@("L")+I)

               IF X=""

                   QUIT 

               WRITE !,$PIECE(X,";",3),$EXTRACT("...............",1,15-$LENGTH($PIECE(X,";",3))),$PIECE(X,";",4,99)

               IF '(I#20)

                   IF '($$QUIT)

                       QUIT 

 +3        QUIT 

 +4       ;

QUIT()    ;

 +1        NEW I,X,Y

 +2        QUIT $$DIR^XBDIR("E")

 +3       ;

STARDATE(X) ; Return Stardate of FM date/time.

 +1        IF X'?7N.1".".6N

               QUIT -1

 +2        NEW Y

 +3        SET Y=$PIECE(X,".",2)

           SET Y=+$EXTRACT(Y,1,2)/24+(+$EXTRACT(Y,3,4)/(60*24))+(+$EXTRACT(Y,5,6)/(60*60*24))

 +4        QUIT $FNUMBER($EXTRACT(X,3,7)+Y,"-",2)

 +5       ;

L         ;

 +1       ;;^XBCLS;Clears the screen

 +2       ;;EP^XBCLM(STR);Lists numbered column headings over the passed string

 +3       ;;^XBDAD0;Returns DA array for D0,D1, etc. or vice versa

 +4       ;;KILL^XBDAD0;KILL D0, D1, ETC.

 +5       ;;^XBDATE;Limits selected routines to those edited after given date

 +6       ;;^XBDBQUE;Double Q'uing shell handler

 +7       ;;^XBDIE;Exclusive NEW of Kernel vars for nesting DIE calls

 +8       ;;^XBDIFF;Returns difference between two date/times

 +9       ;;$$DIC^XBDIQ1(FN);Extrensic entry to return DIC from global

 +10      ;;EN^XBDIQ1;Returns single entries

 +11      ;;ENM^XBDIQ1;Returns multiple entries

 +12      ;;ENP^XBDIQ1(DIC,DA,DR,DIQ,FMT);Param pass into EN

 +13      ;;ENPM^XBDIQ1(DIC,DA,DR,DIQ,FMT);Param pass into EN

 +14      ;;PARSE^XBDIQ1(DA);Parse DA literal into da array

 +15      ;;$$VAL^XBDIQ1(DIC,DA,DR);Return a value for a field

 +16      ;;$$VALI^XBDIQ1(DIC,DA,DR);Return internal value for a field

 +17      ;;$$DIR^XBDIR();Standard interface to Reader

 +18      ;;EN1^XBDSET;Return FileMan dictionaries

 +19      ;;EN^XBENHANCE(NS);Print enhancements from PACKAGE given namespace

 +20      ;;FLD^XBFDINFO(FILE,FIELD,ROOT);Return field info from dd

 +21      ;;^XBFMK;Kills variables left around by FileMan

 +22      ;;EN1^XBFRESET;Reset global(s), confirm with user

 +23      ;;EN2^XBFRESET;Reset global(s), do not confirm with user

 +24      ;;^XBGXFR;Copies global to another global

 +25      ;;^XBGXREFS;Returns xrefs for file/subfile,field

 +26      ;;$$C^XBFUNC(X,Y);Center X in field length Y/IOM/80.

 +27      ;;$$CV^XBFUNC(N);Return current version for package with namespace N

 +28      ;;$$DECFRAC^XBFUNC(DECIMAL VALUE);returns fraction equivilent

 +29      ;;$$FNDPATRN^XBFUNC(STR,PAT);finds pattern in string

 +30      ;;$$GDT^XBFUNC(JDT);Return Gregorian Date, given Julian Date.

 +31      ;;$$GETPATRN^XBFUNC(STR,PAT);returns pattern from string

 +32      ;;$$INTSET^XBFUNC(FILE,FIELD,EXTVAL);returns internal value

 +33      ;;$$JDT^XBFUNC(FMDT);Return Julian Date, given FM date.

 +34      ;;$$EXTSET^XBFUNC(FILE,FIELD,INTVAL);returns external value

 +35      ;;$$LOC^XBFUNC;Return location name from file 4 based on DUZ(2).

 +36      ;;$$USR^XBFUNC;Return name of current user for ^VA(200.

 +37      ;;$$PROVCLS^XBFUNC1(PROV,FORM);Return Provider Class from New Person

 +38      ;;$$PROVCLSC^XBFUNC1(PROV);Return Provider Class Code given New Person IEN

 +39      ;;$$PCCPPINT^XBFUNC2(VISIT);Return primary provider ien from 200

 +40      ;;$$PCCPPN^XBFUNC2(VISIT);Return visit primary provider (NAME)

 +41      ;;$$PCCPPI^XBFUNC2(VISIT);Return visit primary provider (INITIALS)

 +42      ;;$$PCCPPCLS^XBFUNC2(VISIT,FORM);Return visit primary provider class (CODE)

 +43      ;;$$PCCPPCLC^XBFUNC2(VISIT);Return visit primary provider class (CODE)

 +44      ;;$$PCCPPAFF^XBFUNC2(VISIT,FORM);Return visit primary provider (affiliation)

 +45      ;;^XBGSAVE;Generic global save for transmission globals

 +46      ;;HELP^XBHELP(L,R,T);Display text beginning at label L of routine R

 +47      ;;EN1^XBKD;Kill DICs and globals, info in vars

 +48      ;;EN2^XBKD;Kill DICs and globals, info in ^UTILITY("XBDSET",$J) 

 +49      ;;^XBKERCLN;Clean out kernel namespace items prior to install

 +50      ;;^XBKTMP;KILL nodes in ^TMP( that have $J as 1st or 2nd subscripts

 +51      ;;^XBKVAR;Set minimum Kernel vars

 +52      ;;ARRAY^XBLM(AR,HDR);Display array that has (...,n,0) structure

 +53      ;;DIQ^XBLM(DIC,DA);Display DIC and DA after call to EN^DIQ

 +54      ;;FILE^XBLM(DIR,FN);Read file into the TMP global for display

 +55      ;;GUID^XBLM(ROU,Y);Give routine and target array for FM prints

 +56      ;;GUIR^XBLM(ROU,Y);Give routine and target array

 +57      ;;SFILE^XBLM;Select a host file for display

 +58      ;;VIEWD^XBLM(ROU);Use ROU to print to a host file for viewing

 +59      ;;VIEWR^XBLM(ROU,HDR);Use ROU to print to a host file for viewing

 +60      ;;EN^XBLZRO;List 0th nodes of pre-selected list of FileMan files

 +61      ;;MAIL^XBMAIL(NS,REF);Send mail msg to holders of NS* security key

 +62      ;;EN^XBNEW(XBRET,XBNS);Nest Die calls, "TAG^ROUTINE:VAR;NSVAR*"

 +63      ;;^XBOFF;Set reverse video off

 +64      ;;^XBON;Set reverse video on

 +65      ;;PFTV^XBPFTV(FILE,ENTRY,VALUE);Returns terminal value for pointer

 +66      ;;^XBPKDEL;Delete parts of package, namespace in XBPKNSP

 +67      ;;EN1^XBRESID;Clean up residuals in ^DD from XBRLO to XBRHI

 +68      ;;EN^XBRPTL;Print routines down to first label

 +69      ;;EN^XBSFGBL(SUBFILE,ref,FORM);Return global ref of file or sub-file.

 +70      ;;^XBSITE;Ask user to select site to set DUZ(2)

 +71      ;;SET^XBSITE;Request set of DUZ(2) from applications

 +72      ;;^XBUPCASE;Upcases value in X

 +73      ;;EN^XBVIDEO(X);Set video attribute in X, return cursor

 +74      ;;EN^XBVK(NS);KILLS local variables in the passed namespace

 +75      ;;^XBVL;List variables in the selected namespace

 +76      ;;$$KILLOK^ZIBGCHAR(G);Allow kill of global G

 +77      ;;$$KILLNO^ZIBGCHAR(G);Prevent kill'ing of global G

 +78      ;;$$JOURN^ZIBGCHAR(G);Set Journaling to ALWAYS for global G

 +79      ;;$$NOJOURN^ZIBGCHAR(G);Set Journaling for global G to NEVER

 +80      ;;$$UCIJOURN^ZIBGCHAR(G);Journal global G when UCI is Journaled

 +81      ;;$$ERR^ZIBGCHAR(#);Return cause of error #

 +82      ;;$$Z^ZIBNSSV(ERR);Return values of Non-Standard ($Z) Special Variables

 +83      ;;^ZIBRUN;Sets $T based on whether routine in X is running

 +84      ;;$$RSEL^ZIBRSEL(NS,Y);Select a list or range of routines