Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ACKQUTL7

Package: Quasar

Routine: ACKQUTL7


Information

ACKQUTL7 ;HCIOFO/BH - Template Inquire - A&SP Patient/Visit ;18 Jun 2013 10:54 AM

Source Information

Source file <ACKQUTL7.m>

Entry Points

Name Comments DBIA/ICR reference
INP ; PRINT INPATIENT INFO
EN ; Get Demographics
PRINT ;
EXIT ;
WAIT ;
DIHEAD ;
ICDSORT ;
TPLTE ; Display Visit Clinic and Division
VISIT ; Displays Service connected data
GETDATA ; Get visit data
CONNECT
NOT(ACKSTR,ACKAAO,ACKRRAD,ACKEENV) ;
UNKNOWN
SERV ;
ERROR ; Display error message if registration returns error that indicates
; that the Appointment Management database is not available.
PRTHEAD ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"WARD: ",ACK(6),?20,"ROOM/BED: ",ACK(7),?40,"TREATING SPEC:"
  • Line Location: INP+1
Function Call: WRITE
  • Prompt: $E(ACK(8),1,25)
  • Line Location: INP+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !!,"Patient Diagnostic History",!
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: $S($P(VADM(5),U)="F":"Ms. ",1:"Mr. "),$P(VADM(1),",")
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: " has been seen for the following:",!
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,"No A&SP Diagnostic Data for this Patient"
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,$P(ACKICD(ACKI),U),?15,$P(ACKICD(ACKI),U,3),?60,$$NUMDT^ACKQUTL($P(ACKICD(ACKI),U,4))
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !,$P(ACKICD(ACKI,ACKICDX),U),?10,$P(ACKICD(ACKI,ACKICDX),U,3),?72,$$NUMDT^ACKQUTL($P(ACKICD(ACKI,ACKICDX),U,4))
  • Line Location: PRINT+38
Function Call: WRITE
  • Prompt: !!
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WAIT+1
Function Call: WRITE
  • Prompt: @IOF,"Patient Diagnostic History (Cont'd)"," (",ACK(1),")"
  • Line Location: WAIT+2
Function Call: WRITE
  • Prompt: ?72,"DATE"
  • Line Location: DIHEAD+1
Function Call: WRITE
  • Prompt: !,"DIAGNOSIS",?72,"ENTERED"
  • Line Location: DIHEAD+2
Function Call: WRITE
  • Prompt: !,ACKLINE
  • Line Location: DIHEAD+2
Function Call: WRITE
  • Prompt: !!,"CLINIC: ",$$GET1^DIQ(509850.6,ACKVIEN,"2.6")
  • Line Location: TPLTE+2
Function Call: WRITE
  • Prompt: ?45,"DIVISION: ",$$GET1^DIQ(509850.6,ACKVIEN,60),!
  • Line Location: TPLTE+3
Function Call: WRITE
  • Prompt: "PATIENT: ",ACK(1),?45,"DOB: ",ACK(2),?63,"SSN: ",ACK(3)
  • Line Location: TPLTE+5
Function Call: WRITE
  • Prompt: !,"VISIT ELIGIBILITY: "_ACKTMPE
  • Line Location: TPLTE+9
Function Call: WRITE
  • Prompt: ?45,"INITIAL VISIT DATE: ",ACKIVD
  • Line Location: TPLTE+13
Function Call: WRITE
  • Prompt: !,ACK(4)
  • Condition for execution: $L(ACK(4))
  • Line Location: TPLTE+14
Function Call: WRITE
  • Prompt: !,ACK(5)
  • Line Location: TPLTE+14
Function Call: WRITE
  • Prompt: !!,"This visit's Treatment is Service Connected.",!
  • Line Location: CONNECT+0
Function Call: WRITE
  • Prompt: !!,ACKSTR,!
  • Line Location: NOT+1
Function Call: WRITE
  • Prompt: "------------------------------------------------------------------------------"
  • Line Location: NOT+2
Function Call: WRITE
  • Prompt: !,"Related to AGENT ORANGE ? : "_$S(ACKAAO="1":"YES",1:"NO")
  • Line Location: NOT+4
Function Call: WRITE
  • Prompt: ?50,"Service Connected ? : NO"
  • Line Location: NOT+4
Function Call: WRITE
  • Prompt: !,"Related to RADIATION EXPOSURE ? : "_$S(ACKRRAD="1":"YES",1:"NO")
  • Line Location: NOT+6
Function Call: WRITE
  • Prompt: !,"Related to ENVIRONMENTAL CONTAMINANTS ? : "_$S(ACKEENV="1":"YES",1:"NO")
  • Line Location: NOT+8
Function Call: WRITE
  • Prompt: !!,"This visit's Treatment:",!
  • Line Location: UNKNOWN+2
Function Call: WRITE
  • Prompt: "------------------------------------------------------------------------------",!
  • Line Location: UNKNOWN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: UNKNOWN+8
Function Call: WRITE
  • Prompt: ?50,"Service Connected ? : UNKNOWN"
  • Line Location: SERV+1
Function Call: WRITE
  • Prompt: !!!!," ** The Appointment Management Data Base is unavailable. **"
  • Line Location: ERROR+4
Function Call: WRITE
  • Prompt: !!," ** Please report this problem to IRM as soon as possible. **",!!!
  • Line Location: ERROR+5
Function Call: WRITE
  • Prompt: " Press any key to continue."
  • Line Location: ERROR+6
Function Call: WRITE
  • Prompt: !,"ICD-9-CM",!
  • Line Location: PRTHEAD+2
Function Call: WRITE
  • Prompt: !,ACKDX,?10,ACKICDDS(1),?71,ACKDATE
  • Line Location: PRTHEAD+9
Function Call: WRITE
  • Prompt: !?10,ACKICDDS(ACKARNM2)
  • Line Location: PRTHEAD+10
Function Call: WRITE
  • Prompt: !!,"ICD-10-CM",!
  • Line Location: PRTHEAD+12
Function Call: WRITE
  • Prompt: !,ACKDX,?10,ACKICDDS(1),?71,ACKDATE
  • Line Location: PRTHEAD+19
Function Call: WRITE
  • Prompt: !?10,ACKICDDS(ACKARNM2)
  • Line Location: PRTHEAD+20

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACK(509850.6 - [#509850.6] GET1^DIQ,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call