Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AMHSFR

Package: Mental Health Social Services

Routine: AMHSFR


Information

AMHSFR ; IHS/CMI/LAB - REVIEW SF BY DATE 28 Apr 2009 10:46 AM ;

Source Information

Source file <AMHSFR.m>

Call Graph

Call Graph Total: 26

Package Total Call Graph
Mental Health Social Services 8 DISPDG^AMHLE  GETPAT^AMHLEA  $$INCOMPSF^AMHLESF  EP^AMHLESF1  $$ALLOWP^AMHUTIL  ($$DEMO,DEMOCHK)^AMHUTIL1  PTSEC^AMHUTIL2  EP^AMHVD  
VA Fileman 6 ^DDS  ^DIC  FILE^DICN  ^DIE  ^DIK  ^DIR  
Registration 5 NOTICE^DGSEC4  EN^VALM  TERM^VALM0  (CLEAR,FULL)^VALM1  EN^VALM2  
IHS VA Utilities 4 $$VAL^XBDIQ1  ^XBFMK  VIEWR^XBLM  EN^XBVK  
Kernel 2 ($$FMADD,$$FMTE,$$NOW)^XLFDT  DISP^XQORM1  
IHS Patient 1 (,$$HRN,KILL)^AUPNPAT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Mental Health Social Services 2 AMHGD  AMHGSSF  

Entry Points

Name Comments DBIA/ICR reference
DISP ;EP - called from protocol
ALLOW(S,R) ;EP - CAN THIS USER SEE THIS SUICIDE FORM?
EDITX9 ;
HELP ; -- help code
DEFAULT ;
HS ;EP called from protocol to generate hs
BV ;
PAUSE ;EP
DONE ;
HDR ; -- header code
CTR(X,Y) ;EP - Center X in a field Y wide.
DGSECD ;
DGSECE ;
DGSECX ;
INIT ; -- init variables and list array
DEMO ;
CHECK ; check record for completeness
EDITD9 ;
EN ;
D ;date range
GETTYPE ;
START ;
ADD ;EP
EOJ ;
ADDSF(AMHPAT) ;EP called from protocol to add a new form
EDIT ;EP - called from protocol
PROV ;
GATHER ;
EXPND ; -- expand code
ADDDS ;screenman call
EXIT ; -- exit code
DEL ;EP - called from protocol
UPI(P,D) ;EP
GETDATE ;EP - GET DATE OF ENCOUNTER
EDITR9 ;

External References

Name Field # of Occurrence
DISPDG^AMHLE DGSECE+5, DGSECD+5, DGSECX+5
GETPAT^AMHLEA ADD+3
$$INCOMPSF^AMHLESF GATHER+10
EP^AMHLESF1 EDITD9+2
$$ALLOWP^AMHUTIL ALLOW+9, ALLOW+10
$$DEMO^AMHUTIL1 GATHER+8
DEMOCHK^AMHUTIL1 DEMO+1
PTSEC^AMHUTIL2 DGSECE+3, DGSECD+3, DGSECX+3
EP^AMHVD BV+3
^AUPNPAT HS+2, ADD+5
$$HRN^AUPNPAT GATHER+11
KILL^AUPNPAT DONE+3, EXIT+7, EOJ+7
^DDS ADDDS+2
NOTICE^DGSEC4 DGSECE+9, DGSECD+9, DGSECX+9
^DIC DEFAULT+2, PROV+3
FILE^DICN GETDATE+16
^DIE EDITR9+1, CHECK+5, CHECK+31
^DIK EDITX9+4, CHECK+32
^DIR D+3, D+5, DGSECE+6, DGSECD+6, DGSECX+6, EDITX9+1, GETDATE+2, GETDATE+8, CHECK+33, PAUSE+1
EN^VALM EN+3
TERM^VALM0 EXIT+1
CLEAR^VALM1 EN+4, ADD+8, EOJ+5
FULL^VALM1 DEMO+3, EDIT+6, DISP+6, DEL+8, HS+1, ADD+1, ADDSF+1
EN^VALM2 EDIT+1, DISP+1, DEL+3
$$VAL^XBDIQ1 GATHER+12, GATHER+13, GETDATE+7, CHECK+2, CHECK+3, CHECK+4, CHECK+5, CHECK+30, CHECK+31
^XBFMK DONE+2, PROV+1
VIEWR^XBLM HS+7
EN^XBVK DONE+1, HS+4, HS+8, EOJ+1
$$FMADD^XLFDT GATHER+3
$$FMTE^XLFDT HDR+1
$$NOW^XLFDT EDITR9+1, GETDATE+14
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$CTR("Review/Update Suicide Forms by Date",80)
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !
  • Line Location: D+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date."
  • Line Location: D+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"No records selected."
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !,"No record selected."
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !,"Not a valid SUICIDE RECORD."
  • Line Location: EDIT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DGSECE+6
Function Call: WRITE
  • Prompt: !,"No records selected."
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !,"No record selected."
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,"Not a valid SUICIDE RECORD."
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DGSECD+6
Function Call: WRITE
  • Prompt: !!,"You do not have the security access to delete a Suicide Form.",!,"Please see your supervisor or program manager.",!
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !,"No records selected."
  • Line Location: DEL+4
Function Call: WRITE
  • Prompt: !,"No record selected."
  • Line Location: DEL+5
Function Call: WRITE
  • Prompt: !,"Not a valid SUICIDE RECORD."
  • Line Location: DEL+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DGSECX+6
Function Call: WRITE
  • Prompt: !,"Error in Site Parameter File!",$C(7),$C(7)
  • Line Location: GETTYPE+3
Function Call: WRITE
  • Prompt: !!,"PCC MENTAL HEALTH HEALTH SUMMARY TYPE IS MISSING!! NOTIFY YOUR SUPERVISOR OR SITE MANAGER.",!!
  • Line Location: DEFAULT+3
Function Call: WRITE
  • Prompt: !!,"No patient entered..."
  • Line Location: ADD+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: PROV+3
Function Call: WRITE
  • Prompt: !,"No Provider Selected."
  • Line Location: PROV+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: GETDATE+1
Function Call: WRITE
  • Prompt: !!,"This patient already has a suicide form on file for this Date of Act."
  • Line Location: GETDATE+6
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Error creating Suicide form!! Deleting form.",!
  • Line Location: GETDATE+17
Function Call: WRITE
  • Prompt: !!,"ERROR IN SCREENMAN FORM!! ***NOTIFY PROGRAMMER***"
  • Line Location: ADDDS+3
Function Call: WRITE
  • Prompt: !,$P(^DD(9002011.65,AMHF,0),U)," is a required data element."
  • Line Location: CHECK+2
Function Call: WRITE
  • Prompt: !,$P(^DD(9002011.65,AMHF,0),U)," is a required data element."
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: !,"Location of Act is OTHER, OTHER description is required."
  • Line Location: CHECK+4
Function Call: WRITE
  • Prompt: !,"INTERVENTION is a required data element."
  • Line Location: CHECK+6
Function Call: WRITE
  • Prompt: !,"One of the Methods is OTHER. OTHER description is Required."
  • Line Location: CHECK+9
Function Call: WRITE
  • Prompt: !,"Method is Overdose, Drug type is Other, Other description is required."
  • Line Location: CHECK+14
Function Call: WRITE
  • Prompt: !!,"You must enter a METHOD."
  • Line Location: CHECK+16
Function Call: WRITE
  • Prompt: !!,"You must enter a value for SUBSTANCE Use. None or Unknown are valid values."
  • Line Location: CHECK+18
Function Call: WRITE
  • Prompt: !,"Substance Involved is Alcohol/Drugs, Drug is Other, Other Description is Required."
  • Line Location: CHECK+22
Function Call: WRITE
  • Prompt: !,"Contributing Factor is OTHER, OTHER description is required."
  • Line Location: CHECK+26
Function Call: WRITE
  • Prompt: !!,"You must enter a CONTRIBUTING FACTOR. Unknown is a valid value."
  • Line Location: CHECK+29
Function Call: WRITE
  • Prompt: !,"Location of Act is OTHER, OTHER description is required."
  • Line Location: CHECK+30
Function Call: WRITE
  • Prompt: !!,"One or more required data elements are missing.",!!
  • Line Location: CHECK+32
Function Call: WRITE
  • Prompt: !,"Deleting form..."
  • Line Location: CHECK+32
Routine Call
  • VALM
  • Line Location:
    • EN+3
Routine Call
  • DIE
  • Line Location:
    • EDITR9+1
    • CHECK+5
    • CHECK+31
Routine Call
  • DDS
  • Line Location:
    • ADDDS+2
Routine Call
  • DIC
  • Line Location:
    • DEFAULT+2
    • PROV+3
Routine Call
  • DIR
  • Line Location:
    • D+3
    • D+5
    • DGSECE+6
    • DGSECD+6
    • DGSECX+6
    • EDITX9+1
    • GETDATE+2
    • GETDATE+8
    • CHECK+33
    • PAUSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^APCHSCTL - [#9001015] Classic Fileman Calls
^AMHPSUIC - [#9002011.65] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPSUIC - [#9002011.65] GATHER+6, GATHER+9, EDIT+5, DGSECE+1, DGSECE+2, EDITR9+2, DISP+5, DGSECD+1, DGSECD+2, DEL+7
, DGSECX+1, DGSECX+2, GETDATE+5, CHECK+7, CHECK+8, CHECK+9, CHECK+10!, CHECK+11, CHECK+12, CHECK+13
, CHECK+14, CHECK+17, CHECK+20, CHECK+21, CHECK+22, CHECK+23, CHECK+24, CHECK+25, CHECK+26, CHECK+30
, CHECK+31, ALLOW+5, ALLOW+7, ALLOW+10
^AMHPSUIC("AB" GATHER+4, GATHER+5
^AMHPSUIC("AC" GETDATE+5
^AMHSITE - [#9002013] GETTYPE+1, GETTYPE+2, ALLOW+9
^AMHTSCF - [#9002014.9] CHECK+26
^AMHTSDRG - [#9002014.7] CHECK+14
^AMHTSSU - [#9002014.71] CHECK+22
^APCHSCTL - [#9001015] GETTYPE+3
^AUTTLOC - [#9999999.06] UPI+2
^AUTTSITE(1 UPI+2*, UPI+4
^DD(9002011.65 CHECK+2, CHECK+3
^DPT - [#2] GATHER+6, GATHER+11, HS+6
^VA(200 - [#200] PROV+3
^XUSEC("AMHZ DELETE RECORD" DEL+2

Label References

Name Line Occurrences
$$ALLOW GATHER+7
$$CTR START+2
$$UPI GETDATE+13
ADDDS EDITR9+3, GETDATE+19, CHECK+32
ADDSF ADD+7
CHECK ADDDS+4
D D+7, DEMO+2
DEFAULT GETTYPE+1, GETTYPE+2
DONE START+3
EDITD9 DGSECD+1, DGSECD+4
EDITR9 DGSECE+1, DGSECE+4
EDITX9 DGSECX+1, DGSECX+4
EN DEMO+3
EXIT DEMO+3, EDIT+2, EDIT+3, EDIT+5, DGSECE+7, EDITR9+4, DISP+2, DISP+3, DISP+5, DGSECD+7
, EDITD9+3, DEL+2, DEL+4, DEL+5, DEL+7, DGSECX+7, EDITX9+2, EDITX9+3, EDITX9+5, BV+4
, HS+9, ADD+4, ADD+9, PROV+4, GETDATE+3, GETDATE+12, GETDATE+17, GETDATE+20, ADDDS+3, CHECK+32
GATHER EN+2, INIT+1, EXIT+3
GETTYPE HS+3
HDR EXIT+5
PAUSE EDIT+5, DISP+5, DEL+2, DEL+7, GETDATE+12, GETDATE+17, ADDDS+3, CHECK+32
PROV GETDATE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% HS+6*, HS+7, HS+8!, EOJ+4!
AMCHDAYS HS+8!
AMCHDOB HS+8!
AMHBD D+1!, D+3*, D+7, GATHER+4, HDR+1
AMHC CHECK+1*, CHECK+2*, CHECK+3*, CHECK+4*, CHECK+9*, CHECK+14*, CHECK+16*, CHECK+18*, CHECK+22*, CHECK+26*
, CHECK+29*, CHECK+30*, CHECK+32, EXIT+6!
>> AMHD GATHER+9*, GATHER+11
>> AMHDATE GETDATE+2*, GETDATE+4*, GETDATE+5, GETDATE+13, GETDATE+14
>> AMHDEMO DEMO+1, DEMO+2, GATHER+8
>> AMHDOB GATHER+6*, GATHER+11
>> AMHDP PROV+2*
AMHED D+1!, D+5*, D+7, GATHER+3, HDR+1
AMHF CHECK+2*, CHECK+3*, EXIT+6!
>> AMHIISFE ADDDS+1*
AMHLINE GATHER+2*, GATHER+10*, GATHER+14, INIT+2, EXIT+4, EXIT+6!
AMHPAT DGSECE+2*, DGSECE+3, DGSECE+9, EDITR9+2*, DGSECD+2*, DGSECD+3, DGSECD+9, DGSECX+2*, DGSECX+3, DGSECX+9
, BV+2~, HS+7~, ADD+2*, ADD+4, ADD+5, ADD+6, ADD+7, ADDSF~, GETDATE+5, GETDATE+13
, GETDATE+14, EXIT+6!
>> AMHPROV PROV+5*, GETDATE+14
>> AMHQUIT D+3*, D+5*, ADDDS+3*
AMHRDEL EDIT+5!, DISP+5!, DEL+7!
AMHRESU DGSECE+3, DGSECE+8!, DGSECE+9, DGSECD+3, DGSECD+8!, DGSECD+9, DGSECX+3, DGSECX+8!, DGSECX+9, EXIT+6!
AMHRESU(1 DGSECE+4, DGSECD+4, DGSECX+4
>> AMHSD GATHER+3*, GATHER+4*, GATHER+5
AMHSF EDIT+4*, EDIT+5!, DGSECE+1, DGSECE+2, EDITR9+1, EDITR9+2, DISP+4*, DISP+5!, DGSECD+1, DGSECD+2
, EDITD9+2, DEL+6*, DEL+7!, DGSECX+1, DGSECX+2, EDITX9+4, GETDATE+18*, ADDDS+2, CHECK+2, CHECK+3
, CHECK+4, CHECK+5, CHECK+7, CHECK+8, CHECK+9, CHECK+10, CHECK+11, CHECK+12, CHECK+13, CHECK+14
, CHECK+17, CHECK+20, CHECK+21, CHECK+22, CHECK+23, CHECK+24, CHECK+25, CHECK+26, CHECK+30, CHECK+31
, CHECK+32, EXIT+6!
AMHSFR EN+1!, GATHER+1!
AMHSFR( GATHER+14*
AMHSFR("IDX" GATHER+14*, EDIT+4, DISP+4, DEL+6
AMHX GATHER+5*, GATHER+6, GATHER+7, GATHER+9, GATHER+10, GATHER+12, GATHER+13, GATHER+14, EXIT+6!
>> APCHSPAT HS+5*, HS+6
>> APCHSTYP HS+4, GETTYPE+2*, GETTYPE+3*, DEFAULT+1*, DEFAULT+4*
BALMON EOJ+6!
D CHECK+13*, CHECK+14, CHECK+21*, CHECK+22, CHECK+25*, CHECK+26, UPI~, UPI+4
D0 GETDATE+13!, GETDATE+16!
DA DGSECE+6!, EDITR9+1*, DGSECD+6!, DGSECX+6!, EDITX9+1!, EDITX9+4*, DEFAULT+2!, PROV+3!, GETDATE+8!, GETDATE+13!
, ADDDS+2*, CHECK+5*!, CHECK+31*!, CHECK+32*, CHECK+33!, EOJ+4!
DD GETDATE+13!
DDS EOJ+4!
DDSFILE ADDDS+2*, EOJ+3!
DFN GATHER+6*, GATHER+8, GATHER+11, EDITR9+2*, BV+3, HS+2, HS+5, HS+7~, ADD+6*, EXIT+6!
, EOJ+2!
DIADD PROV+3!, GETDATE+13*, GETDATE+16!
DIC DEFAULT+2*!, PROV+3*!, GETDATE+13!*, GETDATE+16!, EOJ+4!
DIC("A" PROV+3*
DIC("B" PROV+3*
DIC("DR" GETDATE+14*, GETDATE+15*
DIC(0 DEFAULT+2*, PROV+3*, GETDATE+13*
DIE EDITR9+1*, GETDATE+16!, CHECK+5*!, CHECK+31*!
>> DIK EDITX9+4*, CHECK+32*
DIMSG ADDDS+3!
DINUM GETDATE+13!
DIPGM EOJ+3!
DIR D+2!, D+4!, DGSECE+6!, DGSECD+6!, DGSECX+6!, EDITX9+1!, GETDATE+2!, GETDATE+8!, CHECK+33!, PAUSE+1!
DIR("A" D+2*, D+4*, DGSECE+6*, DGSECD+6*, DGSECX+6*, EDITX9+1*, GETDATE+2*, GETDATE+8*, CHECK+33*, PAUSE+1*
DIR("B" DGSECE+6*, DGSECD+6*, DGSECX+6*, EDITX9+1*, GETDATE+8*, CHECK+33*
DIR(0 D+2*, D+4*, DGSECE+6*, DGSECD+6*, DGSECX+6*, EDITX9+1*, GETDATE+2*, GETDATE+8*, CHECK+33*, PAUSE+1*
>> DIRUT EDITX9+2, GETDATE+2*, GETDATE+3, GETDATE+9, CHECK+34, PAUSE+1*
DLAYGO PROV+3!, GETDATE+13*, GETDATE+16!
DO GETDATE+13!
DR EDITR9+1*, PROV+3!, GETDATE+13!, GETDATE+16!, ADDDS+2*, CHECK+5*!, CHECK+31*!, EOJ+4!
DT EDITR9+1, GETDATE+2, GETDATE+14
>> DUOUT GETDATE+2, PAUSE+1
DUZ GATHER+7, EDITR9+1, DEL+2, PROV+3, GETDATE+14
DUZ(2 GATHER+11, GETTYPE+1, GETTYPE+2, ALLOW+9
>> G GETDATE+5*, GETDATE+11*, CHECK+7*, CHECK+8*, CHECK+16, CHECK+17*, CHECK+18, CHECK+19, CHECK+23*, CHECK+24*
, CHECK+29
I EXIT+6!
IOF START+1, ADDSF+2
IOM CTR+1
P UPI~, UPI+1, UPI+4, ALLOW+6~, ALLOW+7*, ALLOW+8, ALLOW+9, ALLOW+10
R EDIT+3*!, EDIT+4, EDIT+5!, DISP+3*!, DISP+4, DISP+5!, DEL+5*!, DEL+6, DEL+7!, ALLOW~
, ALLOW+4, ALLOW+5, ALLOW+7, ALLOW+10
R1 EDIT+5!, DISP+5!, DEL+7!
S ALLOW~, ALLOW+3, ALLOW+9, ALLOW+10
U GATHER+6, GATHER+9, GATHER+11, DGSECE+1, DGSECE+2, EDITR9+2, DGSECD+1, DGSECD+2, DGSECX+1, DGSECX+2
, HS+6, GETTYPE+2, PROV+3, GETDATE+5, CHECK+2, CHECK+3, CHECK+8, CHECK+9, CHECK+10, CHECK+11
, CHECK+13, CHECK+14, CHECK+17, CHECK+21, CHECK+22, CHECK+24, CHECK+25, CHECK+26, CHECK+30, CHECK+31
, UPI+2, UPI+4, ALLOW+7, ALLOW+10
VALM EOJ+6!
VALMAR EOJ+6!
VALMBCK EXIT+2*, EOJ+6!
VALMBG EOJ+6!
VALMCAP EOJ+6!
VALMCC EOJ+6!
VALMCNT INIT+2*, EXIT+4*, EOJ+6!
VALMCOFF EOJ+6!
VALMCON EOJ+6!
VALMEVL EOJ+6!
VALMHDR EOJ+6!
VALMHDR(1 HDR+1*
VALMHDR(2 HDR+2*
VALMHDR(3 HDR+3*
VALMHDR(4 HDR+4*
VALMIOXY EOJ+6!
VALMKEY EOJ+6!
VALMLFT EOJ+6!
VALMLST EOJ+6!
VALMMENU EOJ+6!
VALMSGR EOJ+6!
VALMUP EOJ+6!
VALMVAR EOJ+6!
VALMWD EOJ+5, EOJ+6!
VALMY EDIT+2, EDIT+3!, DISP+2, DISP+3!, DEL+4, DEL+5!
VALMY(0 EDIT+3, DISP+3, DEL+5
X GATHER+10*, GATHER+11*, GATHER+12*, GATHER+13*, GATHER+14, CTR~, CTR+1, HDR+3*, HDR+4*, HELP+1*
, DEFAULT+2*, GETDATE+5*, GETDATE+7, GETDATE+13*, GETDATE+16!, CHECK+7*, CHECK+8, CHECK+9, CHECK+10, CHECK+11
, CHECK+12, CHECK+13, CHECK+14, CHECK+20*, CHECK+21, CHECK+22, CHECK+23*, CHECK+24, CHECK+25, CHECK+26
, EXIT+6!, EOJ+4!
XQORNOD EDIT+3!, DISP+3!, DEL+5!
XQORNOD(0 EDIT+1, DISP+1, DEL+3
Y D+3, D+5, CTR~, CTR+1, DGSECE+7, DGSECD+7, DGSECX+7, EDITX9+3, HS+2*, DEFAULT+3
, DEFAULT+4, ADD+5*, PROV+4, PROV+5, GETDATE+4, GETDATE+5*, GETDATE+6*, GETDATE+9*, GETDATE+10, GETDATE+12
, GETDATE+17, GETDATE+18, CHECK+12*, CHECK+13, CHECK+14, CHECK+32, CHECK+34*, EXIT+6!, EOJ+3!, EOJ+4!
Z CHECK+7*, CHECK+23*, EXIT+6!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All